program e x e m p l o w h i l e d o 2 ;
var
n : integer ;
begin
writeln ( ’Informe um numero inteiro positivo : ’ ) ;
read ( n ) ;
while n > 0 do
writeln ( n ) ;
writeln ( ’Fim.’ ) ;
end .


